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-- BinderControl .Mesa Edited by Johnsson on April 13, 1978 8:16 AM 

DIRECTORY 

BcdControlDefs: FROM "BcdControlDef s M f 
BcdDefs: FROM "BcdDefs", 
ImageDefs: FROM "ImageDefs", 
MiscDefs: FROM "MiscDefs", 
SegmentDefs: FROM "SegmentDefs", 
SystemDefs: FROM "SystemDef s" ; 

BinderControl: PROGRAM 

IMPORTS BcdControlDefs, ImageDefs, MiscDefs, SegmentDefs, SystemDefs 
BEGIN OPEN BcdControlDefs; 

MakeBinder: PROCEDURE - 

BEGIN OPEN SegmentDefs, SystemDefs; 

data: BinderData; 

parseg: SegmentDefs. FileSegmentHandle; 

data <~ AllocateHeapNode[SIZE[BinderDataRecord]]; 

MiscDefs.Zero[data, SIZE[BinderDataRecord]]; 

data.rootf ile *- Al locateHeapString[40]; 

data.codef ile *- AllocateHeapString[40]; 

data. symbolf ile <- AllocateHeapString[40]; 

data. outputf ile «- AllocateHeapString[40]; 

data, textlndex <- BcdControlDefs. NullSourcelndex; 

data.currentname ♦- BcdDefs. NullName; 

parseg ♦- NewFileSegment[ 

NewFile["Conf ig. binary "L, Read, DefaultVer si on], 

Def aul tB a se, Default Pages .Read]; 
START BindErrors[data]; 
START BcdControl[data, parseg]; 
START BcdScan[data]; 
START BcdSEBuild[data]; 
START BcdLoad[data]; 
START BcdBind[data]; 
START BcdWrite[data]; 
ImageDefs .MakeImage["Binder . image"L]; 
data.binderVersion <- ImageDefs. ImageVersion[]; 
END; 

MakeBinder[]; 

RESTART BcdControl; 

END. 


